88 
. 
S38388328388838 


oo 
a> 


**F ILE**1D**SORF ILNAM 


<aq<a<aeaqaeeataeaccc<e 
veteieteateainn” + betadeaiies 
<< x 
<< > > | 
> Se < 
<< << 
<< < 
"se <<<2 << 
222222 22222 
- 22 
= 
zz 
zz 
2222552222352355 
2222222 22222 
—) 
w4 
=) 
a4 
i) 
Jj4o 
odo 
odt4 
Sa4g gy I I I II IS 
ee ee ee 
— — 
— —e 


oot —— 
oe “oe 
ba Lk 

A be 

A ba be 

ba be 

A Ek ke 

he fa kL 

Ade ba ba Le 

ek a 


aaacnr aca 
eccec [odie a 
aa aca aac 
ca cc ca 
aa ecacc 
aa eaca 
cc ana 
aa ca 
qaaacaacacaacaacacac 
aaacaacaacaaccaccae 
Oo 


88888888858 


nw MMWNnM 
nn MMMM 
now ww nw 
wn nn “nw 
nw nw nn 
nw nw nn 
wow wn own 
nn nn nw 
AMMM nn 
WMNnn nn 


nw MuWwnn 
wn MMnn 
nw nw nn 
mn “nw nn 
nn nw nn 
nn nw nw 
nw nw nn 
mn nn nw 
MMMM “nw 
MMWMnM nn 
ee — 
oe =e 


LLLLLLLLLL 
LLLLLLLLLL 


SS 


4 8 
SORSF ILE_NAME 16-Sep-1 :05:23  - VAX=11_Bliss-32 v4.0-74 p 
yon e005 akties rit a ea Ped Oot PP ae ee 
1 MODULE SORSFILE_NAME (IDENT = *V04-000") = 
BEGIN 
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ie COPYRIGHT («) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGH $ RESERVED. 


'e alg SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gorite 
!# ONLY IN oe DANCE WITH THE yeRne OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE SF etna TICE. THIS SOFTWARE OR ANY OTHER 


i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
!® TRANSFERRED. 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* oameokat ite. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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FACILITY: VAX=11 SORT/MERGE 
ABSTRACT: 
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This module contains routines to copy file names. 
ENVIRONMENT: VAX/VMS user mode 
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AUTHOR: Peter D Gilbert, CREATION DATE: 14-Oct-1982 
MODIFIED BY: 
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bt Original 
T03-016 Changes for hostile environment. PDG 3-Feb-1983 
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GLOBAL ROUTINE SORSSBEST_FILE_NAME 
FAB: REF SFAB_DECL. 
Ree; REF VECTORE SO 
): CAL_CTXREG NOVALUE = 
FUNCTIONAL DESCRIPTION: 


This routine determines the best file name available after an OPEN 
or CREATE, and stores the result string into a length/address vector. 


FORMAL PARAMETERS: 


FAB Pointer to FAB 
RES Length/address of the string 


VFN —OOONOu 
a a a kk ad 


Oe ee es ee me ee me es et ee ee mm meme mmm 
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fo? IMPLICIT INPUTS: 
i = 

64 IMPLICIT OUTPUTS: 
ei NONE 

83 ROUTINE VALUE: 

b6 NONE 


BEGIN 
EXTERNAL REGISTER 
CTX = 


20 ata COM_REG_CTX: REF CTX_BLOCK; 
9 NAM = .FABLFABSL_NAM]: S$NAM_DECL; 
9 LOCAL 

ADR: 
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: Get the length/address of the best available file name string 
ADR = .NAMCNAMSL_RSA); 

IF (LEN = .NAMCNAMSB_RSLJ) NEQ 0 

THEN 

ELIF (LEN = .NAMCNAMS$B_ESL]) NEQ 0 

THEN 


0 
ELSE 


N 
LEN = .FABLFABSB_FNS); 
ADR = .FAB FABSL~FNAJ; 


IF .LEN NEQ .RESCOJ 
THEN 
BEGIN 
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you000 ex8ep-198e §$:td:ce — ESdaTS2°SReSsORF ILWAM B82; 1 ne 
} Free the old string 


SORSSDEALLOCATE(.RESCOJ, RESC1)); 
} Allocate space for the new string 
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RESTO) = .LEN; 

RESC1) = SORSSALLOCATE(.LEN); 
END; 

Move the string 


CHSMOVE(.LEN, .ADR, .RESC1)); 
END; 


Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge See 
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-EXTRN SORSSALLOCATE, SORSSDEALLOCATE 
-EXTRN SORSSERROR 


-PSECT SORSRO_CODE,NOWRT, SHR, PIC,2 


003C 00000 -ENTRY SORSSBEST_FILE_NAME, Save R2,R3,R4,R5 ; 0125 
51 04 aC 00 00002 MOVL FAB, R1 : 0159 
50 38 Al 09 90006 MOVL  40(R1), RO : 
54 4 AO DO OO00A OVL 4 (RO), ADR : 0166 
53 03 AO 9A 90005 MOVZBL 3(RO). LEN > 016 
O£ 12 9901 NEQ  1$ F 
53 0B AO 9A 00014 MOVZBL 11(RO), LEN + 0170 
08 12 00018 NEQ  1$ : 
53 34 Al OA O01, MOVZBL 52(R1), LEN + 0175 
54 3¢ Al D0 00 1 VL 44(R1). ADR : 0176 
3 8 AC DO 00022 1$: MOVL RES, R2 : 0179 
6 5 D1 $3 CMPL LEN. (R2) P| 
1 13 000 BEQL $ 3 
04 A2 99F 00028 PUSHAB 4(R2) > 0185 
62 DD 000 PUSHL (Re) ; 
000000006 09 FB 00 CALLS #2, SORSSDEALLOCATE F 
6 D0 000 MOVL LEN, (R2) : 0189 
DD 99 A PUSHL LEN : 0190 
00000000G 00 - + CALLS #1, SORSSALLOCATE ; 
04 A2 9 4 MOVL RO. 4(R2) : 
04 B2 64 47 2%: MOovVC3 LEN, (ADR), a4(R2) ; 0195 
4 0004C RET : 0197 


; Routine Size: 77 bytes, Routine Base: SORSRO_CODE + 9000 


“198s 93:10:62 ESORtS2°sRESsoReTeNAM-882; 1 fag 
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yoes008 14-Se 
; GLOBAL ROUTINE SORSSCOPY_F ILE_NAME 
DESC: REF BLOCKE 


BYTE. 
RES: REF VECTORE 
): CAL_CTXREG NOVALUE = 
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FUNCTIONAL DESCRIPTION: 
This routine copies a file name (as passed by a user) 
to a length/address vector. Note that various descriptor classes 
are supported (via ANALYZE_SDESC). 
FORMAL PARAMETERS: 


DESC pteing descriptor 
RES Length/address of the string 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 

NONE 


+ 
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BEGIN 
EXTERNAL REGISTER 

CTX =  COM_REG_CTX: REF CTX_BLOCK; 
LOCAL 


ADR, 
STATUS; 
= 0; 
HOSTILE 
LEN = -DESCEDSC$W_LE 
ADR = .DESCEDSC$A~PO 
ZELSE 
BEGIN 
EXTERNAL ROUTINE 
LIBSANALYZE_SDESC: ADDRESS 
STATUS = LIBSANALYZE SDESC (DESC 
IF NOT .STATUS THEN SORSSERROR( 
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cccr 
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ING MODE (GENERAL) ; 
BASE J, LEN, ADR); 
SORS_SHR_SYSERROR, 0, .STATUS); 


IF] 


REStO] = .LEN; 
RESC1) = SORSSALLOCATE(.LEN); 
CHSMOVE(.LEN, .ADR, .RESC1)); 
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; Routine Size: 


0255 1 


046 B2 


73 bytes, 


END; 
003 0 
5E 08 Cc 
04 AE D 
5E 4 
08 AE OF BA 
04 ac oD 
000000006 00 Fe 1 
11 E 9 
PB Gooie 
001C11B4 F DD Borg 
000000006 00 3 4 0024 
25 08 ac D B28 B 
6 04 AE 00 0002F 
04 AE OD Bn8 3 
000000006 09 1 FB 000 
046 =#A 0 : 00030 
00 BE 046 AE 49 
4 00048 


Routine Base: SORSRO_CODE + 004D 
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SORTS2.SRCJSORF ILNAM.B52;1 


LIBSANALYZE_SDESC 
SORSSCOPY_FILE_NAME, Save R2,R3,R4,R5 
#8, SP 

LEN 

SP 

LEN 

DESC 

#3, LIBSANALYZE_SDESC 

STATUS, 1$ 


#1839540 
#3, SORSSERROR 
RES 


LEN, (R2) 
N 


L 

#1, SORSSALLOCATE 
RO, 4(R2) 

LEN, @ADR, @4(R2) 


SS 


N ,¢ 
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3 191 $ GLOBAL ROUTINE SORSSFREE_FILE_NAME 

: 198 2 1 RES: REF VECTORC2) 

: 194 1 ): CAL_CTXREG NOVALUE = 

: 13? é} ! i++ 

; 199 6¢ ; FUNCTIONAL DESCRIPTION: 

; 12? rf: 1 This routine releases the storage used to hold a file name string. 
: 1 66 | FORMAL PARAMETERS: 

3 08 o8 : RES Length/address of the string 
: 205 % 1 | IMPLICIT INPUTS: 

; 206 'y Be Bo 

: 207 re 1 i NONE 

: 208 0273 1: 

: 209 0274 1 | IMPLICIT OUTPUTS: 

> 210 0275 1 

3 11 0276 1! NONE 

: \2 0277 1 

: 21 0278 1 | ROUTINE VALUE: 

3; 214 0279 1: 

: 215 0280 1} NONE 

> 216 0281 7} 

3; 217 0 Be 1 i. 

: 218 028 BEGIN 

: 219 0284 EXTERNAL REGISTER 

; 20 0285 CTX =  COM_REG_CTX: REF CTX_BLOCK; 
; 234 0987 § SORSSDEALLOCATE(.RESCOJ, RESC1)); 

: 22 0288 1 END; 


0000 00000 -ENTRY SORSSFREE_FILE_NAME, Save nothing 
7E 04 AC 04 C1 BO00s ADDL3 #4, RES, =(SP) 
04 BC DD 0000 PUSHL aR 
000000006 00 02 FB QOO0OA CALLS #2, SORSSDEALLOCATE 
04 00011 RET 


; Routine Size: 18 bytes, Routine Base: SORSRO_CODE + 0096 
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; PSECT SUMMARY 
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SORSF ILE _NAME = 
sons 1. 1$-sep 
Name Bytes 
SORSRO_CODE 


Library Statistics 


a------- Symbols -------- 


File Total idaded Percent 
~$5 geuage: SYSLIBJSTARLET.L32; ‘} 9776 11 g 
_S255$DUA SORT32.SRCISORLIB.L32;1 409 105 2 

; COMMAND QUALIFIERS 


Size: 168 goge + 0 data bytes 
Run Time: :05.7 
Elapsed Time: :24.8 
Lines/CPU Min: 
Teneo Nate Rae 1 

ry Used: 71 pages 
ao ation Complete 


pu198e 13:00 — LRORTS2°SRESSORF ILNAM 852; 1 
Attributes 


168 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Pages Processing 
Mapped e 
581 00:01. 
iy 08:04 :3 
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IT 
FI 


DIG 
CON 
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